home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / dnet / drexxmail.lha / default_notify.rexx next >
Encoding:
OS/2 REXX Batch file  |  1994-09-30  |  976 b   |  42 lines
  1. /* Simple "you have mail" requester for demon.rexx */
  2. /* v1.00 - 9/29/94                                 */
  3.  
  4. options results
  5. call addlib("rexxreqtools.library",0,-30,0)
  6.  
  7. /* Some initializations... */
  8.  
  9. lf = '0a'x
  10. cr = '0d'x
  11. colon='3a'x
  12. semicol='3b'x
  13. qmark='22'x
  14. fonttag=""
  15. address command
  16.  
  17. /* Write a flag file that ensures we don't get 1000 */
  18. /* "you have mail" requesters!                      */
  19.  
  20. if ~exists('t:demonreq.flag') then do
  21.      call open .us,"T:demonreq.flag",write
  22.      call writeln .us, "1"
  23.      call close .us
  24.      msg = "You have new mail in "||envar('DRMLOCALDIR')||envar('USERNAME')
  25.      call rtezrequest(msg,"_Ok","Mail Notification",fonttag)
  26.      'delete t:demonreq.flag QUIET'
  27.      end
  28.  
  29. /* That's it! */
  30. exit 
  31.  
  32. envar: procedure
  33.      arg evname
  34.      epath = "ENV:"||evname
  35.      evalue = ""
  36.      if exists(epath) then do
  37.           call open .envar,epath,read
  38.           evalue = readln(.envar)
  39.           call close .envar
  40.           end
  41.      return evalue
  42.